home *** CD-ROM | disk | FTP | other *** search
- OPEN FILE "Work:BoyScouts/WeblosAdvancement/WeblosAdvancement"
-
- REQUEST "REPORT TO PRINTER?","",1,a%
- IF a% THEN PRINT;
- REPORT
-
- HEADING
- ?
- ? @26;"Individual Scout Status Report"
- ?
- ?
- ?
- END HEADING
-
- SELECT NEWLINE @3; BF ; UL ;&30 ScoutName.WeblosAdvancement; ATTR OFF;
- NEWLINE @5; BF ; UL ;"Badge/Activity"; UL OFF ;@21; UL ;"Completion Date"; UL OFF ;@38; UL ;"Requirements Completed"; ATTR OFF;
- @38; BF ; UL ;"1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 "; ATTR OFF;
- @7;"Weblos Badge";@21;&11 WeblosBadgeComp.WeblosAdvancement;@38;&2 WeblosBadge_1.WeblosAdvancement;&2 WeblosBadge_2.WeblosAdvancement;
- &2 WeblosBadge_3.WeblosAdvancement;&2 WeblosBadge_4.WeblosAdvancement;&2 WeblosBadge_5.WeblosAdvancement;
- &2 WeblosBadge_6.WeblosAdvancement;&2 WeblosBadge_7a.WeblosAdvancement;&2 WeblosBadge_7b.WeblosAdvancement;
- &2 WeblosBadge_7c.WeblosAdvancement;&2 WeblosBadge_7c.WeblosAdvancement;@59;&2 WeblosBadge_7d.WeblosAdvancement;
- @62;&2 WeblosBadge_7e.WeblosAdvancement;@65;&2 WeblosBadge_7f.WeblosAdvancement;@68;&2 WeblosBadge_7g.WeblosAdvancement;
- @71;&2 WeblosBadge_7h.WeblosAdvancement;@74;&2 WeblosBadge_8a.WeblosAdvancement NEWLINE @5;"Arrow of Light";
- @21;&11 ArrowOfLightCmp.WeblosAdvancement;@38;&2 ArrowOfLight1.WeblosAdvancement;&2 ArrowOfLight2a.WeblosAdvancement;
- &2 ArrowOfLight2b.WeblosAdvancement;&2 ArrowOfLight2c.WeblosAdvancement;&2 ArrowOfLight2d.WeblosAdvancement;
- &2 ArrowOfLight3.WeblosAdvancement;&2 ArrowOfLight4a.WeblosAdvancement;&2 ArrowOfLight4b.WeblosAdvancement;
- &2 ArrowOfLight5.WeblosAdvancement;&2 ArrowOfLight6.WeblosAdvancement NEWLINE NEWLINE @11;"Aquanaut";
- @21;&11 AquanautComp.WeblosAdvancement;@38;&2 Aquanaut_1.WeblosAdvancement;&2 Aquanaut_2.WeblosAdvancement;
- &2 Aquanaut_3.WeblosAdvancement;&2 Aquanaut_4.WeblosAdvancement;&2 Aquanaut_5.WeblosAdvancement;&2 Aquanaut_6.WeblosAdvancement;
- &2 Aquanaut_7.WeblosAdvancement NEWLINE @13;"Artist";@21;&11 ArtistComp.WeblosAdvancement;@38;&2 Artist_1.WeblosAdvancement;
- &2 Artist_2.WeblosAdvancement;&2 Artist_3.WeblosAdvancement;&2 Artist_4.WeblosAdvancement;&2 Artist_5.WeblosAdvancement;
- &2 Artist_6.WeblosAdvancement;&2 Artist_7.WeblosAdvancement NEWLINE @11;"Athelete";@21;&11 AthleteComp.WeblosAdvancement;
- @38;&2 Athlete_1.WeblosAdvancement;&2 Athlete_2.WeblosAdvancement;&2 Athlete_3.WeblosAdvancement;&2 Athlete_4.WeblosAdvancement;
- &2 Athlete_5.WeblosAdvancement;&2 Athlete_6.WeblosAdvancement;&2 Athlete_7.WeblosAdvancement;&2 Athlete_8.WeblosAdvancement;
- &2 Athlete_9.WeblosAdvancement NEWLINE @12;"Citizen";@21;&11 CitizenComp.WeblosAdvancement;@38;&2 Citizen_1.WeblosAdvancement;
- &2 Citizen_2.WeblosAdvancement;&2 Citizen_3.WeblosAdvancement;&2 Citizen_4.WeblosAdvancement;&2 Citizen_5.WeblosAdvancement;
- &2 Citizen_6.WeblosAdvancement;&2 Citizen_7.WeblosAdvancement;&2 Citizen_8.WeblosAdvancement;&2 Citizen_9.WeblosAdvancement;
- &2 Citizen_10.WeblosAdvancement;@59;&2 Citizen_11.WeblosAdvancement;@62;&2 Citizen_12.WeblosAdvancement;
- @65;&2 Citizen_13.WeblosAdvancement;@68;&2 Citizen_14.WeblosAdvancement;@71;&2 Citizen_15.WeblosAdvancement;
- @74;&2 Citizen_16.WeblosAdvancement NEWLINE @7;"Communicator" NEWLINE @10;"Craftsmen" NEWLINE @11;"Engineer" NEWLINE NEWLINE NEWLINE NEWLINE NEWLINE NEWLINE NEWLINE ; EJECT
- WHERE ASK
- ORDER ASK
-